home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / gemfsc18.lzh / AESSRC18.LZH / AESBIND / AESEVNT2.S < prev    next >
Encoding:
Text File  |  1989-04-06  |  1.6 KB  |  58 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.  
  10. ;*************************************************************************
  11. ;*
  12. ;* Event manager routines 2 of 3.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; evnt_multi - everybody's favorite.
  18. ;-------------------------------------------------------------------------
  19.  
  20. _evnt_multi::
  21.  
  22. .flags    = 8
  23. .pmbufold = 36
  24. .pmbufnew = 40
  25. .countlo  = 40
  26. .counthi  = 42
  27. .px       = 44
  28. .py       = 48
  29. .pbutton  = 52
  30. .pstate   = 56
  31. .pkreturn = 60
  32. .pbreturn = 64
  33.  
  34.           link      a6,#-14
  35.  
  36.           move.l    .pmbufnew(a6),d0            ; Swap timer counts & buffer
  37.           move.l    .pmbufold(a6),.pmbufnew(a6) ; pointer; puts all 'intin'
  38.           move.l    d0,.pmbufold(a6)            ; parms together on stack.
  39.  
  40.           AControl  25,16,7,1
  41.           
  42.           moveq.l   #-14,d2             ;  = intout
  43.           lea       .flags(a6),a1       ; -> intin
  44.           lea       .pmbufnew(a6),a0    ; -> addrin
  45.  
  46.           ACall     RET2HERE
  47.  
  48.           move.l    .pmbufnew(a6),d0            ; Swap the counts & ptr back
  49.           move.l    .pmbufold(a6),.pmbufnew(a6) ; because it isn't nice to
  50.           move.l    d0,.pmbufold(a6)            ; munge the caller's stack.
  51.  
  52.           moveq.l   #-14,d1
  53.           lea       .px(a6),a1
  54.           jmp       (a0)
  55.  
  56. ;         end of code
  57.  
  58.